home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / comm / bbs / hsdisk1.lha / InstallerScript < prev    next >
Encoding:
Text File  |  1995-02-18  |  6.1 KB  |  298 lines
  1. ;$VER: RPGBBS Deluxe Installer v1.0 (28 Jan 1995)
  2.  
  3. (set true 1)
  4. (set false 0)
  5. (set quote "\"")
  6. (set nothing "")
  7. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  8.  
  9. (set fonts_dir (getassign "FONTS"))
  10. (set libs_dir (getassign "LIBS"))
  11. (set RPGBBS_dir (getassign "RPGBBS"))
  12.  
  13. (set Src_RPGBBS "RPGBBS Install:RPGBBS/")
  14. (set Src_Libs "RPGBBS Install:Libs/")
  15. (set Src_Fonts "RPGBBS Install:Fonts/")
  16. (set Src_Help "RPGBBS Extra:Help/")
  17. (set Src_Menu "RPGBBS Extra:Menu/")
  18. (set Src_Pix "RPGBBS Extra:Pix/")
  19. (set Src_Sounds "RPGBBS Extra:Sounds/")
  20. (set Src_Docs "RPGBBS Docs:Documentation/")
  21.  
  22. ; ask user to locate FONTS: directory
  23.  
  24. (set Fonts_dir
  25.      (askdir
  26.           (prompt "Please locate your FONTS: directory")
  27.           (help @askdir-help)
  28.           (default fonts_dir)
  29.           (newpath)
  30.      )
  31. )
  32.  
  33. (working omp "...Please Wait...")
  34.  
  35. (copyfiles
  36.      (prompt "Select file(s) to be copied into your FONTS: directory:")
  37.      (help "\n\n\n\n\nThis will copy over any fonts needed for the "
  38.      "BBS.\n\n\n\n\n\n\n"
  39.      @copyfiles-help)
  40.      (source Src_Fonts)
  41.      (dest fonts_dir)
  42.      (pattern "(#?)")
  43.      (fonts)
  44.      (confirm)
  45. )
  46.  
  47. (complete 10)
  48.  
  49. ; ask user to locate LIBS: directory
  50.  
  51. (set libs_dir
  52.      (askdir
  53.           (prompt "Please locate your LIBS: directory.")
  54.           (help @askdir-help)
  55.           (default libs_dir)
  56.           (newpath)
  57.      )
  58. )
  59.  
  60. (working omp "...Please Wait...")
  61.  
  62. (copyfiles
  63.      (prompt "Select file(s) to be copied into your LIBS: directory:")
  64.      (help "\n\n\n\nThis will copy the B-tree, RPGBBS, Serial-Console, "
  65.      "and XPR libraries into your system's LIBS: directory.\n\n\n\n"
  66.      @copylib-help)
  67.      (source Src_Libs)
  68.      (dest libs_dir)
  69.      (pattern "(#?.library)")
  70.      (confirm)
  71. )
  72.  
  73. (complete 20)
  74.  
  75. (if  (<> RPGBBS_dir nothing)
  76.      (if  (askbool
  77.                (prompt "\n\n\nSome version of RPGBBS Deluxe software "
  78.                "already exists in your drawer named: \n\n"
  79.                quote RPGBBS_dir quote
  80.                "\n\nDo you want the update installed over it?")
  81.                (help
  82.                "\n\n\nThe installer has determined that you already have a "
  83.                "some version of RPGBBS Deluxe software installed on your "
  84.                "If this is wrong or you want the update installed elsewhere, "
  85.                "select 'NO', otherwise select 'YES'."
  86.                )
  87.                (default 1)
  88.           )
  89.                (set is_update true) 
  90.  
  91. ;else ask where to put software
  92.  
  93.           (
  94.                (set is_update false)
  95.                (set RPGBBS_dir
  96.                (askdir
  97.                     (prompt "Where would you like the updated software "
  98.                     "installed?\n"
  99.                     )
  100.                     (help @askdir-help)
  101.                     (default @default-dest)
  102.                )
  103.                )
  104.  
  105.                (set RPGBBS_dir
  106.                )
  107.  
  108.                (makedir RPGBBS_dir
  109.                (infos)
  110.                )
  111.           )
  112.      )
  113. )
  114.  
  115. ; RPGBBS: was not previously assigned, so ask where to make it
  116. (if  (= RPGBBS_dir nothing)
  117.           (
  118.           (set RPGBBS_dir
  119.                (askdir
  120.                     (prompt "Where would you like the software installed? "
  121.                     "'RPGBBS' will be automatically appended.")
  122.                     (help @askdir-help)
  123.                     (default @default-dest)
  124.                )
  125.           )
  126.  
  127.           (set RPGBBS_dir
  128.           (tackon RPGBBS_dir "RPGBBS")
  129.           )
  130.  
  131.           (makedir RPGBBS_dir
  132.           (infos)
  133.           )
  134.      )
  135. )
  136.  
  137. (complete 25)
  138.  
  139. (copyfiles
  140.      (prompt "Select file(s) to be copied to RPGBBS directory:")
  141.      (help "\n\n\n\nThis will copy programs and support files.\n\n\n\n"
  142.      @copyfiles-help)
  143.      (source Src_RPGBBS)
  144.      (dest RPGBBS_dir)
  145.      (pattern "#?")
  146.      (confirm)
  147. )
  148.  
  149. (complete 60)
  150.  
  151. ;create Help directory
  152.  
  153. (set Help_dir
  154. (cat RPGBBS_dir)
  155. )
  156. (set Help_dir
  157. (tackon Help_dir "Help")
  158. )
  159.  
  160. (makedir Help_dir
  161. (infos)
  162. )
  163.  
  164. (working omp "...Please Wait...")
  165.  
  166. (copyfiles
  167.      (prompt "Select file(s) to be copied to Help directory:")
  168.      (help "\n\n\n\nThis will copy various text files for "
  169.      "optional use.\n\n\n\n"
  170.      @copyfiles-help)
  171.      (source Src_Help)
  172.      (dest Help_dir)
  173.      (pattern "#?")
  174.      (confirm)
  175. )
  176.  
  177. (complete 70)
  178.  
  179. ;create Menu directory
  180.  
  181. (set Menu_dir
  182. (cat RPGBBS_dir)
  183. )
  184. (set Menu_dir
  185. (tackon Menu_dir "Menu")
  186. )
  187.  
  188. (makedir Menu_dir
  189. (infos)
  190. )
  191.  
  192. (working omp "...Please Wait...")
  193.  
  194. (copyfiles
  195.      (prompt "Select file(s) to be copied to Menu directory:")
  196.      (help "\n\n\n\nThis will copy various text files for "
  197.      "optional use.\n\n\n\n"
  198.      @copyfiles-help)
  199.      (source Src_Menu)
  200.      (dest Menu_dir)
  201.      (pattern "#?")
  202.      (confirm)
  203. )
  204.  
  205. (complete 75)
  206.  
  207. ;create Pix directory
  208.  
  209. (set Pix_dir
  210. (cat RPGBBS_dir)
  211. )
  212. (set Pix_dir
  213. (tackon Pix_dir "Pix")
  214. )
  215.  
  216. (makedir Pix_dir
  217. (infos)
  218. )
  219.  
  220. (working omp "...Please Wait...")
  221.  
  222. (copyfiles
  223.      (prompt "Select file(s) to be copied to Pix directory:")
  224.      (help "\n\n\n\nThis will copy various text, ANSI, and PXL files for "
  225.      "optional use.\n\n\n\n"
  226.      @copyfiles-help)
  227.      (source Src_Pix)
  228.      (dest Pix_dir)
  229.      (pattern "#?")
  230.      (confirm)
  231. )
  232.  
  233. (complete 80)
  234.  
  235. ;create Sounds directory
  236.  
  237. (set Sounds_dir
  238. (cat RPGBBS_dir)
  239. )
  240. (set Sounds_dir
  241. (tackon Sounds_dir "Sounds")
  242. )
  243.  
  244. (makedir Sounds_dir
  245. (infos)
  246. )
  247.  
  248. (working omp "...Please Wait...")
  249.  
  250. (copyfiles
  251.      (prompt "Select file(s) to be copied to Sounds directory:")
  252.      (help "\n\n\n\nThis will copy various IFF sound files for "
  253.      "optional use.\n\n\n\n"
  254.      @copyfiles-help)
  255.      (source Src_Sounds)
  256.      (dest Sounds_dir)
  257.      (pattern "#?")
  258.      (confirm)
  259. )
  260.  
  261. (complete 90)
  262.  
  263. ;create Documentation directory
  264.  
  265. (set Docs_dir
  266. (cat RPGBBS_dir)
  267. )
  268. (set Docs_dir
  269. (tackon Docs_dir "Documentation")
  270. )
  271.  
  272. (makedir Docs_dir
  273. (infos)
  274. )
  275.  
  276. (working omp "...Please Wait...")
  277.  
  278. (copyfiles
  279.      (prompt "Select file(s) to be copied Documentation directory:")
  280.      (help "\n\n\n\nThis will copy various documentation on "
  281.      "RPGBBS Deluxe, History, and XPR protocols.\n\n\n\n"
  282.      @copyfiles-help)
  283.      (source Src_docs)
  284.      (dest Docs_dir)
  285.      (pattern "#?")
  286.      (confirm)
  287. )
  288.  
  289. (complete 95)
  290.  
  291. (message "\n\n\n\n\n\n"
  292. "Installation of RPGBBS Deluxe software is complete!"
  293. )
  294.  
  295. (complete 100)
  296.  
  297. (exit)
  298.